﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class usuarioFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As usuarioBE
        Dim tmpUsuario As usuarioBE = New usuarioBE()
        Try
            With tmpUsuario
                .Activo = convertDTFromDb.ConvertBoolean(dr.Item("Activo"))
                .Clave = convertDTFromDb.ConvertString(dr.Item("Clave"))
                .CorreoElect = convertDTFromDb.ConvertString(dr.Item("CorreoElect"))
                .IdGrupo = convertDTFromDb.convertInt32(dr.Item("IdGrupo"))
                .IdUsuario = convertDTFromDb.convertInt32(dr.Item("IdUsuario"))
                .Nombre = convertDTFromDb.ConvertString(dr.Item("Nombre"))
                .NombreCompleto = convertDTFromDb.ConvertString(dr.Item("NombreCompleto"))
                .PregSecret = convertDTFromDb.ConvertString(dr.Item("PregSecret"))
                .RespSecreta = convertDTFromDb.ConvertString(dr.Item("RespSecreta"))
                .FechaAct = convertDTFromDb.convertDateTime(dr.Item("FechaAct"))
                .NoIntentos = convertDTFromDb.convertInt32(dr.Item("NoIntentos"))
            End With
            Return tmpUsuario
        Catch ex As Exception
            Throw
        Finally
            tmpUsuario = Nothing
        End Try
    End Function
End Class
